home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_07_(08-1984).d64 / sound - raygun (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  419b  |  26 lines
  1. 10 REM   >>> RAYGUN SOUND EFFECT <<<
  2. 20 :
  3. 30 PRINT"[147] HIT ANY KEY FOR RAYGUN"
  4. 40 PRINT"    ( * TO END PGM )"
  5. 50 GET A$ : IF A$="" THEN 50
  6. 60 IF A$="*" THEN 90
  7. 70 GOSUB 1000 : REM SOUND SUBROUTINE
  8. 75 FOR A=1 TO 10
  9. 80 GOTO 30
  10. 90 FOR X=1TO24 : POKE 54272+X,0: NEXT
  11. 100 END
  12. 110 :
  13. 1000 REM ** SOUND SUBROUTINE **
  14. 1010 :
  15. 1020 S=54272
  16. 1030 POKE S+24,15
  17. 1040 POKE S+6,240
  18. 1050 POKE S+4,17
  19. 1060 FOR A=1 TO 10
  20. 1070 FOR X= 1 TO 255  STEP 25
  21. 1080 POKE S+1,X
  22. 1090 NEXT X
  23. 1100 NEXT A
  24. 1110 POKE S+4,32
  25. 1120 RETURN
  26.